unit fAbout;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.StdCtrls,
  Vcl.ExtCtrls;

type
  TFormAbout = class(TForm)
    Label1: TLabel;
    VersionLabel: TLabel;
    TreeImage: TImage;
    OKButton: TButton;
    MemoInfo: TMemo;
    procedure FormActivate(Sender: TObject);
    procedure OKButtonClick(Sender: TObject);
  private

  public
     
  end;

var
  FormAbout: TFormAbout;

implementation

uses
  uConstants;

{$R *.dfm}

procedure TFormAbout.FormActivate(Sender: TObject);
begin
  VersionLabel.Caption := 'v' + TREAL_VERSION;
end;

procedure TFormAbout.OKButtonClick(Sender: TObject);
begin
  Self.Close;
end;

end.
